home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / rjkpro_1 / plasma1oo.amos / plasma1oo.amosSourceCode
Encoding:
AMOS Source Code  |  1997-04-02  |  1.2 KB  |  56 lines
  1. '----------------------------------------------------
  2. '               plasma v1.1 re-edited
  3. '----------------------------------------------------
  4. '               keller@vip.cybercity.dk
  5. '                     rune keller  
  6. '                 sporuplundsvej 105 
  7. '                   dk-8472 sporup 
  8. '----------------------------------------------------
  9. '            finished o2/o4/1997 13:3o:24
  10. '----------------------------------------------------  
  11.  
  12. _PLASMA
  13.  
  14. Procedure _PLASMA
  15.    
  16.    Screen Open 0,630,512,32,Lowres
  17.    Flash Off 
  18.    Curs Off 
  19.    Hide 
  20.    Cls 0
  21.  
  22.    Screen Offset 0,128,64
  23.    Shift Up 1,4,31,1
  24.  
  25.    Palette $0,$F00,,,$420,$530,$640,$750,$860,$970,$A80,$B90,$CA0,$DB0,$EC0,$FD0,$FE0,$EF0,$DF0,$CE0,$BD0,$AC0,$9B0,$8A0,$790,$680,$570,$460,$350,$240,$230,$320
  26.  
  27.    Degree 
  28.  
  29.    Screen Hide 
  30.    
  31.    For A=0 To 9
  32.       For B=0 To 27
  33.          Ink 4+B
  34.          Bar 0,B*3+A*84 To 639,3+B*3+A*84
  35.       Next 
  36.    Next 
  37.  
  38.    For X=0 To 639
  39.       Screen Copy 0,X,0,X+1,511 To 0,X,Sin(_DEG#)*64
  40.       _DEG#=_DEG#+1.6
  41.    Next 
  42.  
  43.    For Y=0 To 511
  44.       Screen Copy 0,0,Y,639,Y+1 To 0,Sin(_DEG#)*128,Y
  45.       _DEG#=_DEG#+1.3
  46.    Next 
  47.  
  48.    Screen Show 
  49.  
  50.    Repeat 
  51.       Multi Wait 
  52.    Until Mouse Key<>0
  53.  
  54.    Screen Close 0
  55.  
  56. End Proc